inherited fmAddRodstv: TfmAddRodstv
  Left = 259
  Top = 235
  Width = 963
  Height = 415
  Caption = #1056#1077#1076#1072#1082#1090#1080#1088#1086#1074#1072#1085#1080#1077' '#1089#1087#1080#1089#1082#1072' '#1088#1086#1076#1089#1090#1074#1077#1085#1085#1080#1082#1086#1074'-'#1076#1077#1090#1077#1081
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel [0]
    Left = 5
    Top = 50
    Width = 123
    Height = 16
    Caption = #1042#1074#1077#1076#1080#1090#1077' '#1092#1072#1084#1080#1083#1080#1102
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGray
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  inherited sbBottom: TStatusBar
    Top = 354
    Width = 955
  end
  inherited Panel1: TPanel
    Width = 955
    inherited BitBtn1: TBitBtn
      Left = 785
    end
    inherited BitBtn2: TBitBtn
      Left = 873
    end
  end
  object Edit1: TEdit [3]
    Left = 5
    Top = 68
    Width = 252
    Height = 27
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnChange = Edit1Change
    OnClick = Edit1Click
  end
  object dbgClients: TcxGrid [4]
    Left = 5
    Top = 103
    Width = 556
    Height = 235
    Align = alCustom
    TabOrder = 3
    LookAndFeel.Kind = lfStandard
    object tvPeople: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Kind = skCount
          Position = spFooter
          FieldName = 'PLASTNAME'
        end>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsBehavior.IncSearch = True
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.CancelOnExit = False
      OptionsData.Deleting = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsSelection.CellSelect = False
      OptionsSelection.HideFocusRectOnExit = False
      OptionsSelection.InvertSelect = False
      OptionsSelection.UnselectFocusedRecordOnExit = False
      OptionsView.NavigatorOffset = 10
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.ColumnAutoWidth = True
      OptionsView.DataRowHeight = 24
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      Preview.Visible = True
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object tvPeoplePP: TcxGridDBColumn
        Caption = #1060#1048#1054
        DataBinding.FieldName = 'PP'
        Width = 275
      end
      object tvPeoplePDATEBIRTH: TcxGridDBColumn
        Caption = #1044#1072#1090#1072' '#1088#1086#1078#1076'.'
        DataBinding.FieldName = 'PDATEBIRTH'
        Width = 66
      end
      object tvPeopleSDNAME: TcxGridDBColumn
        Caption = #1054#1073#1088#1072#1079'. '#1087#1086#1076#1088'.'
        DataBinding.FieldName = 'SDNAME'
        Width = 199
      end
    end
    object dbgClientsLevel1: TcxGridLevel
      GridView = tvPeople
    end
  end
  object bAdd: TcxButton [5]
    Left = 566
    Top = 185
    Width = 40
    Height = 41
    Hint = #1044#1086#1073#1072#1074#1080#1090#1100
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    OnClick = bAddClick
    Colors.Default = clGreen
    Glyph.Data = {
      56020000424D560200000000000076000000280000001E0000001E0000000100
      040000000000E001000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
      00000000000000000000077777777777777777777777777770000F7777777777
      777777777777777770000F8888888888888888888888888770000F8888888888
      888888888888888770000F88888888888888888888888887700A0F8888888888
      8888888888888887702C0F88888888888888888888888887704C0F8888888888
      888888888888888770900F88888888FF888888888888888770A80F8888888878
      FF8888888888888770150F888888887008FF88888888888770420F8888888870
      0008FF888888888770260F8888888870000008FF8888888770000F8888888870
      00000008FF88888770070F8888888870000000000778888770880F8888888870
      000000077888888770000F8888888870000007788888888770000F8888888870
      000778888888888770000F8888888870077888888888888770000F8888888877
      788888888888888770020F8888888878888888888888888770040F8888888888
      888888888888888770090F8888888888888888888888888770020F8888888888
      888888888888888770040F8888888888888888888888888770090F8888888888
      888888888888888770020F8888888888888888888888888770040FFFFFFFFFFF
      FFFFFFFFFFFFFFFF700000000000000000000000000000000000}
    LookAndFeel.Kind = lfFlat
    LookAndFeel.SkinName = ''
  end
  object cxButton2: TcxButton [6]
    Left = 567
    Top = 238
    Width = 39
    Height = 37
    Hint = #1059#1076#1072#1083#1080#1090#1100
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 5
    OnClick = cxButton2Click
    Colors.Default = clRed
    Glyph.Data = {
      56020000424D560200000000000076000000280000001E0000001E0000000100
      040000000000E001000000000000000000001000000000000000000000000000
      8000008000000080800080000000800080008080000080808000C0C0C0000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
      00000000000000000000077777777777777777777777777770000F7777777777
      777777777777777770000F8888888888888888888888888770000F8888888888
      888888888888888770000F88888888888888888888888887700A0F8888888888
      8888888888888887702C0F88888888888888888888888887704C0F8888888888
      888888888888888770900F8888888888888888FF8888888770A80F8888888888
      8888FF8F8888888770150F888888888888FF800F8888888770420F8888888888
      FF80000F8888888770A60F88888888FF8000000F8888888770000F888888FF80
      0000000F8888888770250F88888770000000000F8888888770CA0F8888888770
      0000000F8888888770260F88888888877000000F8888888770000F8888888888
      8770000F8888888770070F88888888888887700F8888888770880F8888888888
      8888877F8888888770000F88888888888888888F8888888770000F8888888888
      888888888888888770000F8888888888888888888888888770000F8888888888
      888888888888888770560F8888888888888888888888888770DD0F8888888888
      888888888888888770000F8888888888888888888888888770000FFFFFFFFFFF
      FFFFFFFFFFFFFFFF700000000000000000000000000000000000}
    LookAndFeel.Kind = lfFlat
    LookAndFeel.SkinName = ''
  end
  object cxGrid2: TcxGrid [7]
    Left = 621
    Top = 103
    Width = 316
    Height = 235
    Align = alCustom
    TabOrder = 6
    LookAndFeel.Kind = lfStandard
    object cxGridDBTableView2: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      FilterBox.CustomizeDialog = False
      FilterBox.Visible = fvNever
      DataController.DataModeController.GridMode = True
      DataController.DataSource = dsTemp
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Kind = skCount
          Position = spFooter
          FieldName = 'PLASTNAME'
        end>
      DataController.Summary.FooterSummaryItems = <>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsCustomize.ColumnFiltering = False
      OptionsCustomize.ColumnGrouping = False
      OptionsData.Deleting = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsView.NavigatorOffset = 10
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.ColumnAutoWidth = True
      OptionsView.DataRowHeight = 24
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      Preview.Visible = True
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object cxGridDBTableView2PP: TcxGridDBColumn
        Caption = #1060#1048#1054
        DataBinding.FieldName = 'PP'
      end
    end
    object cxGridLevel2: TcxGridLevel
      GridView = cxGridDBTableView2
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qPeople
    Left = 288
    Top = 184
  end
  object qPeople: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      
        'SELECT P.*, (COALESCE(P.PLASTNAME,'#39' '#39')||'#39' '#39'||COALESCE(P.PNAME,'#39' ' +
        #39')||'#39' '#39'||COALESCE(P.PPATRONYMIC,'#39' '#39')) AS PP, sd1.SDNAME'
      'FROM PEOPLE P'
      'INNER JOIN P_STATUS PS ON PS.PID = P.PID'
      
        'INNER JOIN DETI_PODRAZD DP ON DP.PID = P.PID AND CURRENT_DATE BE' +
        'TWEEN CAST(dp.DPDATEIN AS DATE) AND COALESCE(CAST(dp.DPDATEOUT A' +
        'S DATE), CURRENT_DATE+3650)'
      'INNER JOIN SYS_DIC SD1 ON SD1.SDID = DP.SDID'
      'WHERE P.PISDELETE IS NULL AND PS.SDID = 1246'
      'AND NOT EXISTS'
      '('
      'SELECT R.PID'
      'FROM RODSTVENNIK R'
      'WHERE R.PID = P.PID'
      ')'
      'ORDER BY 3')
    Left = 320
    Top = 184
    object qPeoplePID: TIntegerField
      FieldName = 'PID'
      Origin = '"PEOPLE"."PID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPeoplePDATEBIRTH: TDateField
      FieldName = 'PDATEBIRTH'
      Origin = '"PEOPLE"."PDATEBIRTH"'
    end
    object qPeoplePP: TIBStringField
      FieldName = 'PP'
      ProviderFlags = []
      Size = 767
    end
    object qPeopleSDNAME: TIBStringField
      FieldName = 'SDNAME'
      Origin = '"SYS_DIC"."SDNAME"'
      Size = 255
    end
  end
  object dsTemp: TDataSource
    Left = 536
    Top = 168
  end
end
